﻿Partial Class CbHTFkSP_ExtendForm_CostTable
    Inherits Mysoft.Map.Application.Security.AppPage

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sBusinessGUID As String = Request.QueryString("BusinessGUID")
        If Not (sBusinessGUID Is Nothing) And sBusinessGUID <> "" Then
            appGrid.CustomFilter = " a.HTFKApplyGUID='" & sBusinessGUID & "'"
        Else
            appGrid.CustomFilter = "1=2"
        End If

    End Sub
End Class
